home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMPILER / VP10B003 / VPC.ZIP / EXAMPLES / BP7 / TVFM / FILEFIND.DIF < prev    next >
Text File  |  1995-06-22  |  1KB  |  33 lines
  1. Comparing files BP7\FILEFIND.PAS and VP\FILEFIND.PAS
  2. ***** BP7\FILEFIND.PAS
  3.    17:    MsgBox;
  4. ***** VP\FILEFIND.PAS
  5.    17:    MsgBox, Use32;
  6.  
  7. ***** BP7\FILEFIND.PAS
  8.   156:      if DosError = 0 then GetNextFile := Search.Name
  9.   157:      else GetNextFile := '';
  10.   158:    end;
  11. ***** VP\FILEFIND.PAS
  12.   156:      if DosError = 0 then GetNextFile := Search.Name
  13.   157:     else
  14.   158:      begin
  15.   159:        GetNextFile := '';
  16.   160:        {$IFDEF OS2} FindClose(Search); {$ENDIF}
  17.   161:      end;
  18.   162:    end;
  19.  
  20. ***** BP7\FILEFIND.PAS
  21.   195:          FindNext(Stack^.Search);
  22.   196:        if DosError <> 0 then PopStack := True
  23.   197:        else
  24.   198:        begin   { make a new stack entry }
  25. ***** VP\FILEFIND.PAS
  26.   199:          FindNext(Stack^.Search);
  27.   200:        if DosError <> 0 then
  28.   201:        begin
  29.   202:          PopStack := True;
  30.   203:          {$IFDEF OS2} FindClose(Stack^.Search); {$ENDIF}
  31.   204:        end
  32.   205:       else
  33.   206:        begin   { make a new stack entry }